home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d12 / 1com.arc / BATFILE.DAT < prev    next >
Encoding:
Text File  |  1988-11-15  |  6.6 KB  |  228 lines
  1.  
  2.     Make sure to spit into 4 different files: BLOAD.COM, BSAVE.COM,
  3.     CONMEN.DAT and STING.DAT
  4.  
  5. N      BLOAD.COM
  6. A
  7. XOR    BH,BH
  8. MOV    BL,[80]               ;Get argument length.
  9. MOV    Byte Ptr [BX+81],0    ;Convert argument to ASCIIZ.
  10. MOV    DX,82
  11. MOV    AX,3D00               ;Open file for reading.
  12. INT    21
  13. JB     13E                   ;Exit if not found.
  14. MOV    BX,AX                 ;Else, filehandle in BX.
  15. MOV    AX,40
  16. MOV    DS,AX                 ;BIOS data segment.
  17. MOV    AX,B000               ;Monochrome buffer address.
  18. MOV    CX,1000               ;4K buffer.
  19. CMP    Word Ptr [63],3B4     ;Is it monochrome?
  20. JZ     131                   ;If yes, skip around.
  21. ADD    AX,800                ;Else, CGA buffer address.
  22. ADD    CX,3000               ;16K buffer.
  23. MOV    DS,AX                 ;Point to segment.
  24. MOV    DX,0                  ;Point to Offset.
  25. MOV    AH,3F                 ;Read in file image.
  26. INT    21
  27. MOV    AH,3E                 ;Close file.
  28. INT    21
  29. INT    20                    ;Terminate.
  30.  
  31. RCX
  32. 40
  33. W
  34. Q
  35.  
  36. - - - - - - - - - - - - -- - - - - - - - - - - - - - - - 
  37.  
  38. N      BSAVE.COM
  39. A
  40. XOR    BH,BH
  41. MOV    BL,[80]               ;Get argument length.
  42. MOV    Byte Ptr [BX+81],0    ;Convert argument to ASCIIZ.
  43. MOV    DX,82
  44. MOV    CX,0
  45. MOV    AH,3C                 ;Create a normal file.
  46. INT    21
  47. JB     140                   ;Exit if error.
  48. MOV    BX,AX                 ;Else, filehandle in BX.
  49. MOV    AX,40
  50. MOV    DS,AX                 ;BIOS data segment.
  51. MOV    AX,B000               ;Monochrome buffer address.
  52. MOV    CX,1000               ;4K buffer.
  53. CMP    Word Ptr [63],3B4     ;Is it monochrome?
  54. JZ     133                   ;If yes, skip around.
  55. ADD    AX,800                ;Else, CGA buffer address.
  56. ADD    CX,3000               ;16K buffer.
  57. MOV    DS,AX                 ;Point to segment.
  58. MOV    DX,0                  ;Point to offset.
  59. MOV    AH,40                 ;Write image to file.
  60. INT    21
  61. MOV    AH,3E                 ;Close the file.
  62. INT    21
  63. INT    20                    ;Terminate.
  64.  
  65. RCX
  66. 42
  67. W
  68. Q
  69.  
  70. - - - - - - - - - - - - -- - - - - - - - - - - - - - - - 
  71. CONMEN.DAT
  72.  
  73. X0 S255 C0
  74.  
  75. : Illustrated by David P. Hitt
  76.  
  77. BM45,90 M-11,-11 M+4,-8 U3 M+6,-8 M+42,-16 R15 M+21,7 M+10,9 M+6,2 M+4,5
  78. M-1,17 M-8,7 M-4,15 F1D4G1D2G1D7 M-7,12 M-1,10 G1 M-9,3 L8 M-8,-6 M-18,-8
  79. H1 M-4,-12 M-6,-3 M-6,-7 U5 M-7,-1 U5 M-3,-5 M-3,-5 M+12,-10 M+23,-8 M+16,-3
  80. R20 M+18,6 NM+1,11 L11H1L27 M-13,3 M-19,6 NM+7,-7 M-15,12
  81. BM+34,-18 M-12,13 M+15,-4 NM+9,-12 F1 NM+8,-5 NE5 M+11,-4 M-1,4 M+7,-4M-6,9
  82. M+18,-13 M+5,7 M+8,4 D6F1
  83.  
  84. BM59,106  M+9,8 R1 M-2,-12 M+11,-13
  85. BM59,106  M+7,-4
  86. BM77,100  R2E2R2U1NR14R4D1R11D1
  87. BM83,104  E3R10F2L4G1L3H1U1L1G2L2BE1 P0,0
  88. BM88,108  R6E2
  89. BM108,100  U1E1R1E3R1E1R10F2D3F1D5
  90. BM109,101  R4U3E2R3E1R5L9BG2 P0,0
  91. BM114,99   R1E1R5F2ND1L3G1L3H1L1
  92. BM117,104 F1R1U1R1E1R1
  93. BM109,103  M+1,8 F1D1R1ND2R2F2G1D2L2D1L1D1L2G1L2H1L1U1L3H1G1
  94. BM116,11  8F2R1F1D4L6G1L9G1L9
  95. BM116,125 G4L4G1L4H1
  96. BM118,128 NG5G1D2G1D1G1L7G1L4H1L1BR13BU1 P0,0
  97. BM116,130 D1
  98. BM89,125  U2E2R1U1R1U1E1R1U1
  99. BM81,118  D4F1D1F3D1F4D1F1
  100. BM90,103  P0,0
  101. BM116,100 P0,0
  102. BM75,134  M+9,35 M+6,-7 NM+5,-6 M+8,12 NM-5,7 R1F1R1ND6R2E1R1E1 NM+5,6
  103. M+5,-10 NM+5,4 M-12,-9 NM+9,-6 M-5,2 M-19,-21
  104. BM119,146 M-2,21
  105. BM65,118 NM-14,6D14
  106. BM105,170 P0,0
  107. BM102,152 H11R1F3BF1 P0,0
  108.  
  109. BM167,65 L5 M-15,-4 H1U2E1 M+20,-6 M+7,-1 M+8,-16 R1 M+14,-19 M+33,3 M+31,19
  110. M+7,8 M-4,14 D11 M+20,4 M-1,4 M-23,5 M-26,-17 L1H1L1H1L2H1L2H1L1H1L2H1L3H1L3
  111. H1L5H1L21 M-15,3 M-2,5
  112. BM183,34 M+23,3 M+23,7 NM-5,4 M+18,6 NM+1,6 M+17,8
  113. BM174,50 R19 M+29,4 NM+2,-6 M+21,8 NM+5,-5 M+22,8
  114. BM167,65 NM+6,6 G1D2 M+5,5 NE1 M-6,14 G1D2F1R1F1R14F1R2F1NL3R1F1L4H1L8H1L1
  115. D2F1R2ND3R7F1R8L3D1L1G1L1G1L8R5D1G1L3G1 M-4,8 G1D2F2R2F1R3F1R5E1R1E1R4
  116. M+25,-11 M+9,-11 R4E1R2E7 M+2,-8 H3L1H1L6G2D3F1R3E2R2F1D5G3L1
  117. BU4L2E1H1BM-2,4H2BD4D1R1
  118. BM261,83 D1G1D1 M-46,58 M-25,-23 H4 BM+4,4 M+24,-13 L2G2L2G1L2D1L1BG1 P0,0
  119. BM236,90 M+8,11 R3
  120. BM229,78 M-9,5 M-10,-3 M+3,-7 M-6,-4 M-4,-12
  121. BM179,75 E1H1L1H3U3E1F1R10F2D2R1L2H1L8D1R4F1R2F2R1L5D1R7F1H1L10U3
  122. BM183,76 D2R5E1BR7R6E1R1
  123. BM180,88 G2L5E1R4 BM+7,1 F6D5 BM+6,-8 D1F2D4 M-5,6 BM+10,-9 U4
  124. BM175,93 P0,0
  125. BM175,106 R3E1R2E1R1
  126.  
  127. BM175,100 L12G1L9G1D2F1R17U1R5BH1 P0,0
  128. BM247,102 M+12,7 NM+15,6 M-14,53
  129. BM156,112 L4 M-21,-3 NU9D16G1D3 M-9,12 M+7,-2 1G2D2
  130. BM122,137 U4R1U1R1U2
  131. BM194,126 D4NG8D25 M+7,-3 U19BL1 P0,0
  132. BM208,138 G2D1G2D4
  133. BM238,159 M-14,-12 L6 M+5,-6 M+15,17 H3L1BH1 P0,0
  134. BM169,70 P0,0 BR9 P0,0
  135. BM215,69 F3R8H3L8 BL1 P0,0
  136. BM55,70 P2,0 BM55,85 P2,0 BM85,74 P2,0 BM69,77 P2,0
  137. BM195,30 P1,0 BM195,40 P1,0 BM235,50 P1,0 BM255,60 P1,0 BM165,53 P1,0
  138. BM151,101 M-14,-1 U1 M+20,-5 U1 M-9,-3
  139.  
  140.  
  141.  
  142. - - - - - - - - - - - - -- - - - - - - - - - - - - - - - 
  143.  
  144.     STING.DAT
  145.  
  146.  
  147.  
  148. :The Entertainer by Scott Joplin
  149.  
  150. T80            :Prelude
  151.  
  152. O4MLL64C#MNL16DECO3L8AL16BMSL8G
  153. MLL64C#MNL16DECO2L8AL16BL8MSGMN
  154. O2MLL64C#MNL16DECO1L8AL16BAA-
  155. MSL8GMNP4O3L8GO2L16MLDMND#
  156.  
  157. MLO2L16EMSL8O3CMLO2L16EO3MSL8C
  158. MNO2L16EO3L4C.L16O4CDD#
  159. ECDL8EL16O3BO4MSL8D
  160. MNCL16O3MLEGO4MSL8CMLO2L16DMND#
  161. MLO2L16EMSL8O3CMLO2L16EO3MSL8C
  162. MLO2L16EO3L4C.L16MLAMNG
  163. F#AO4CL8EL16DCO3A
  164. O4L4D.O1L16MLDMND#
  165. MLO2L16EMSL8O3CMLO2L16EO3MSL8C
  166. MNO2L16EO3L4C.L16O4CDD#
  167. ECDL8EL16O3BO4MSL8D
  168. MNCL16O3MLEGO4MSL8CMNL16CD
  169. ECDL8EL16CDC
  170. ECDL8EL16CDC
  171. ECDL8EL16O3BO4L8MSDMN
  172. L5MLC.MNL16O3EFF#
  173.  
  174. O3L8MSGMNL16AL8GL16EFF#
  175. MSL8GMNL16AL8GL16MSECO2G
  176. MLL16ABO3CDEDCD
  177. MNO2GMLO3EFGAGEMNF
  178. L8MSGMNL16AL8GL16EFF#
  179. L8MSGMNL16AL8GL16GAA#
  180. BL8BL16L8BL16AF#D
  181. L5MLG.MNL16EFF#
  182. MSL8GMNL16AL8GL16EFF#
  183. L8MSGMNL16AL8GL16MLECO3MNG
  184. MLABO4CDEDCD
  185. MSL8MLCL16EGMSO5CO4MNGF#G
  186. MSO5L8CO4MNL16AO5L8CL16O4AO5CO4A
  187. GO5CEL8GL16ECO4G
  188. MSL8AO5CMNL16EL8D
  189. L4C..L16O4EFF#
  190. MSL8GMNL16AL8GL16EFF#
  191. L8GL16AL8GL16MSECO3G
  192. MNABO4CDEDCD
  193. O3GO4EFGAGEF
  194. MSL8GMNL16AL8GL16EFF#
  195. L8GL16AL8GL16GAA#
  196.  
  197. BL8BBL16AF#D
  198. MLL64GAGAGAGAGAGAGAGAGL16MNEFF#
  199. L8MSGL16AL8GL16EFF#
  200. L8GL16AL8GL16MSECO3G
  201. MNABO4CDEDCD
  202. MSL8CL16MLEGO5MNCO4GF#G
  203. O5MSL8CO4MNL16AMLO5L8CL16O4AO5
  204. CO4AGO5CEL8GL16ECO4G
  205. L8MSAO5CMNL16EL8DL16MLC
  206. L4CL8C
  207.  
  208. :  Greensleeves
  209.  
  210. O3A O4L2CL4D E.L8FL4E L2DL4O3B G.L8AL4B O4L2CO3L4A A.L8G#L4A L2BL4G# O3L2EL4A
  211. O4L2CL4D E.L8FL4E L2DL4O3B G.L8AL4B O4L4C.O3L8BL4A L4G#.L8F#L4G# L2A. L2A.
  212. O4L2G. L4G.L8F#L4E L2DO3L4B G.L8AL4B L2O4CO3L4A A.L8G#L4A L2BL4G# L2E.
  213. O4L2G. L4G.L8F#L4E L2DO3L4B G.L8AL4B O4L4C.O3L8BL4A G#.L8F#L4G# L2A. A.
  214.  
  215.  
  216. To produce the "Dragnet" theme, enter 
  217.  
  218. PLAY T90 O2 L8E. L16F# L8G E P2 L8E. L16F# L8G E L3 B-
  219.  
  220. Then try entering PLAY, followed by a single space and the following, «MDUL»continuous«MDNM» string on the command line:
  221.  
  222. T190O2L4EL8EL4MLG.MNL4G.EL8GL4AL8AL4MLG.MNL2G.L4EL8EL4MLG.MNL4G.EL8GL4AL8AL4MLG.MNL2G.T90L8E.L16F#L8GEP2L8E.L16F#L8GEL3B-
  223.  
  224.  
  225.  
  226.  
  227.  
  228.